home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 September & October / rerun-1987-09-10a.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  79 lines
  1. 1 rem *********************************
  2. 2 rem *         'auto menu'           *
  3. 3 rem * reads directory & auto loads  *
  4. 4 rem * program selected by the user  *
  5. 5 rem *             by                *
  6. 6 rem * joe w. rocke          7/27/84 *
  7. 7 rem *********************************
  8. 10 poke53280,0:poke53281,0
  9. 20 dim n$(100):cx=54272:print "[147]"
  10. 30 print"[147][129]"
  11. 40 x$="                                       "
  12. 50 forx=1to5:printx$:next
  13. 60 print"":print chr$(117);
  14. 70 for x=1 to 38:printchr$(100);:next
  15. 80 printchr$(105);:for x=1 to 5
  16. 90 printchr$(103)spc(38)chr$(104)" "chr$(157);:next
  17. 100 printchr$(106);:for x=1 to 38:printchr$(102);:next:printchr$(107)
  18. 110 print""tab(14)"* auto menu *"
  19. 120 printtab(12)"[158]reading directory"
  20. 129 rem --- read disk directory ---
  21. 130 open1,8,0,"$"
  22. 140 get#1,b$:ifst<>0then260
  23. 149 rem --- line 150 limits to 26 files ---
  24. 150 iff>=27then260
  25. 160 ifb$<>chr$(34)then140
  26. 170 n$="":print"":poke 214,8:print
  27. 180 get#1,b$:ifb$<>chr$(34)thenn$=n$+b$:goto180
  28. 190 get#1,b$:ifb$=chr$(32)then190
  29. 199 rem -- following lines skip the loading files --
  30. 200 ifn$="menu 128"thenf=f-1:goto240
  31. 201 ifn$="128 notepad boot"thenf=f-1:goto240
  32. 202 ifn$="128 notepad.obj"thenf=f-1:goto240
  33. 203 ifn$="128 notepad data"thenf=f-1:goto240
  34. 204 ifn$="outline 128"thenf=f-1:goto240
  35. 205 ifn$="rerun"thenf=f-1:goto240
  36. 210 ifn$="menu 64"thenf=f-1:goto240
  37. 220 ifleft$(n$,1)=" "thenf=f-1:goto240
  38. 230 n$(f)=" "+n$
  39. 240 get#1,b$:ifb$<>""then240
  40. 250 ifst=0thenf=f+1:goto140
  41. 260 close1
  42. 269 rem - print first column of names -
  43. 270 fore=1tof/2:print"[153]"chr$(64+e)""n$(e):next
  44. 280 print"":poke214,8:print
  45. 289 rem -- then 2nd column of names ---
  46. 290 fore=f/2+1tof:printspc(20)"[153]"chr$(64+e)""n$(e):next
  47. 300 print""
  48. 310 printtab(12)"[158] press letter key "
  49. 320 printtab(5)"to auto load program selected"
  50. 330 getm$:ifm$=""then 330
  51. 335 ifm$=chr$(13)thenrun
  52. 340 ifm$=chr$(13)thenrun
  53. 350 ifm$<"a"orm$>chr$(64+f)then330
  54. 351 ifm$="a"orm$="d"then391
  55. 352 ifm$="e"orm$="f"then391
  56. 353 ifm$="h"orm$="i"then391
  57. 354 ifm$="j"then391
  58. 360 p=asc(m$)-64:print"[147]"
  59. 370 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  60. 380 n$(p)=mid$(n$(p),2,len(n$(p)))
  61. 390 print"load"chr$(34)n$(p)chr$(34)",8[145][145][145]":goto460
  62. 391 p=asc(m$)-64:print"[147]"
  63. 392 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  64. 393 n$(p)=mid$(n$(p),2,len(n$(p)))
  65. 394 print"load"chr$(34)n$(p)chr$(34)",8[145][145][145]"
  66. 400 rem *******************************
  67. 410 rem * if you know the pgm is 'ml' *
  68. 420 rem * the example below will load *
  69. 430 rem * and file & run it. examples *
  70. 440 rem * (3) are shown below.        *
  71. 450 rem *******************************
  72. 460 ifleft$(n$(p),5)="curso"then510
  73. 470 ifleft$(n$(p),12)="constructi*"thena$="sys49152"+chr$(13):goto490
  74. 480 ifleft$(n$(p),5)="ultra"thena$="sys49152"+chr$(13):goto500
  75. 490 a$="run"+chr$(13)
  76. 500 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  77. 505 new
  78. 510 a$="run 25"+chr$(13):goto500
  79.